home *** CD-ROM | disk | FTP | other *** search
/ Strategy Challenges Collection / Strategy Challenges Collection.iso / pc / demo / demodata / menu.dxr / 00106.ls < prev    next >
Encoding:
Text File  |  1996-10-02  |  942 b   |  48 lines
  1. on enterFrame
  2.   global gBeenThere, theDemoList
  3.   if gBeenThere = 0 then
  4.     preLoad(the frame)
  5.     repeat with nn = 2 to 7
  6.       puppetSprite(nn + 6, 1)
  7.       set the rect of sprite (nn + 6) to the rect of sprite nn
  8.       if the mouseDown then
  9.         exit
  10.       end if
  11.     end repeat
  12.     updateStage()
  13.     if not (theDemoList contains #done) then
  14.       puppetSound("main.aif")
  15.     end if
  16.     set gBeenThere to 1
  17.   end if
  18.   cursor(-1)
  19. end
  20.  
  21. on exitFrame
  22.   global UserTimer, gQuit
  23.   timeOutCheck()
  24.   go(the frame)
  25.   menuRoll()
  26. end
  27.  
  28. on menuRoll
  29.   repeat with xx = 8 to 13
  30.     if the mouseDown then
  31.       exit
  32.     end if
  33.     if the visible of sprite (xx - 6) = 1 then
  34.       set the visible of sprite (xx - 6) to 0
  35.     end if
  36.   end repeat
  37.   repeat with nn = 8 to 13
  38.     if the mouseDown then
  39.       exit
  40.     end if
  41.     if rollOver(nn) then
  42.       set the visible of sprite (nn - 6) to 1
  43.       exit repeat
  44.     end if
  45.   end repeat
  46.   updateStage()
  47. end
  48.